home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
begmnu17.zip
/
BEGIN.DEF
next >
Wrap
Text File
|
1988-08-06
|
7KB
|
319 lines
; Begin LogiMouse Mouse Menu for Begin v1.5 & v1.6
; August 6, 1988
; Written by:
; John Prebit
; Copyright August 6, 1988 by
; DigiTech Computer Consulting Services
; 708 Main St.,
; Plantsville, Connecticut 06479
; (203) 621-9348
;
; NOTICE
; This program is released to the public domain. It may be
; reproduced and modified for personal use only. This program
; MAY NOT be sold in any form. Software vendors may, however,
; include it with software for sale, PROVIDED THAT:
; 1. It is included without charge
; 2. This notice is included in total
; 3. Full credit is given to the author and copyright holder
;
; Requires the use of Logitech MENU.COM and MOUSE.COM (or
; MOUSE.SYS)
BEGIN lfbtn,escape,return,lfmot,rtmot,upmot,dnmot,100,100
lfbtn: MENU " - Control - ",1,27,NORMAL
OPTION "Weapons",weapmenu
OPTION "Status",statmenu
OPTION "NavCom",navcom
OPTION "Library",libmenu
OPTION "Fleet",
MEND
lfmot: TYPE 0,75
rtmot: TYPE 0,77
upmot: TYPE 0,72
dnmot: TYPE 0,80
altc: TYPE 3
return: TYPE 13
escape: TYPE 27
; library code begins here
libmenu: EXECUTE lib,c2
c2: MENU " Select Category ",1,5,NORMAL
OPTION "Ship",listship
OPTION "Torpedo",listtorp
OPTION "Probe",listpr
MEND
listship: EXECUTE sh,nation
listtorp: EXECUTE torp,torpclass
listpr: EXECUTE pr,prclass
lib: TYPE "lib "
sh: TYPE "sh "
pr: TYPE "pr "
nation: MENU " Select Nation ",1,5,NORMAL
OPTION "Federation",fed
OPTION "Klingon",kling
OPTION "Romulan",rom
OPTION "Orion",orion
MEND
fed: EXECUTE fed1,fshipclass
kling: EXECUTE kling1,kshipclass
rom: EXECUTE rom1,rshipclass
orion: EXECUTE orion1,oshipclass
fed1: TYPE "fed "
kling1: TYPE "kl "
rom1: TYPE "rom "
orion1: TYPE "o "
fshipclass: MENU " Select Class ",1,5,NORMAL
OPTION "Interceptor",fint
OPTION "Destroyer",fdest
OPTION "Heavy Cruiser",fhc
OPTION "Dreadnaught",fdread
MEND
fint: TYPE "I",13
fdest: TYPE "de",13
fhc: TYPE "h",13
fdread: TYPE "dr",13
kshipclass: MENU " Select Class ",1,5,NORMAL
OPTION "Escort",kesc
OPTION "Frigate",kfrig
OPTION "Battle Cruiser",kbc
OPTION "Dreadnaught",kdread
MEND
kesc: TYPE "e",13
kfrig: TYPE "f",13
kbc: TYPE "b",13
kdread: TYPE "dr",13
rshipclass: MENU " Select Class ",1,5,NORMAL
OPTION "War Eagle",reagl
OPTION "Bird of Prey",rbird
OPTION "Frigate",rfrig
MEND
reagl: TYPE "w",13
rbird: TYPE "b",13
rfrig: TYPE "f",13
oshipclass: MENU " Select Class ",1,5,NORMAL
OPTION "Assasin",oass
OPTION "Raider",oraid
OPTION "Sabotuer",osab
OPTION "Anarchist",oana
MEND
oass: TYPE "as",13
oraid: TYPE "r",13
osab: TYPE "s",13
oana: TYPE "an",13
torpclass: MENU " Select Class ",1,5,NORMAL
OPTION "·· mkvii ",mkvii
OPTION "·· ktx ",ktx
OPTION " plasma ",plasma
OPTION " Xplasma",xplasma
OPTION "·· opbt ",opbt
MEND
mkvii: TYPE "mk",13
ktx: TYPE "ktx",13
plasma: TYPE "pl",13
xplasma: TYPE "xpl",13
opbt: TYPE "o",13
prclass: MENU " Select Class ",1,5,NORMAL
OPTION "φ pxii",pxii
OPTION "Φ klpp",klpp
OPTION "∞ dnk ",dnk
OPTION "Θ rmpp",rmpp
MEND
pxii: TYPE "px",13
klpp: TYPE "klpp",13
dnk: TYPE "dnk",13
rmpp: TYPE "rmpp",13
; status code begins here
statmenu: MENU " Systems Status ",1,23,NORMAL
OPTION "Scan Ship",scan
OPTION "Report",report
OPTION "Scanning Range",range
OPTION "Damage Control",damage
OPTION "Shields",shields
OPTION "Phaser Banks",banks
OPTION "Torpedo Tubes",tubes
OPTION "Probes",stpr
OPTION "Launchers",launchers
MEND
stat: TYPE "st "
scan: TYPE "scan",13
report: TYPE "re",13
range: TYPE "ra ",13
damage: TYPE "dam",13
shields: TYPE "sh",13
banks: TYPE "ba",13
tubes: TYPE "tubes",13
stpr: TYPE "st pr",13
launchers: TYPE "st la",13
; weapons code begins here
weapmenu: MENU " Fire Control ",1,24,NORMAL
OPTION "Fire",firec
OPTION "Lock",lockc
OPTION "Enable",enablec
OPTION "Load",loadc
OPTION "Detonate",detonatec
OPTION "Disable",disablec
OPTION "Unload",unloadc
OPTION "Turn",turnc
MEND
firec: EXECUTE selectweap,howmany,ten,return
enablec: EXECUTE enable,selectweap,howmany,return
disablec: EXECUTE disable,selectweap,howmany,return
loadc: EXECUTE load,selectweap,howmany,return
unloadc: EXECUTE unload,selectweap,howmany,return
lockc: EXECUTE lock,selectweap,howmany,return
turnc: EXECUTE turn,selectweap,howmany,return
detonatec: EXECUTE detonate,return
phas: TYPE "phas "
torp: TYPE "torp "
probe: TYPE "probe "
enable: TYPE "enable "
disable: TYPE "disable "
load: TYPE "load "
unload: TYPE "unload "
lock: TYPE "lock "
turn: TYPE "turn "
detonate: TYPE "detonate "
all: TYPE "all "
zero: TYPE "0 "
one: TYPE "1 "
two: TYPE "2 "
three: TYPE "3 "
four: TYPE "4 "
five: TYPE "5 "
six: TYPE "6 "
seven: TYPE "7 "
eight: TYPE "8 "
ten: TYPE "10 "
fifteen: TYPE "15 "
twenty: TYPE "20 "
twentyfive: TYPE "25 "
thirty: TYPE "30 "
thirtyfive: TYPE "35 "
forty: TYPE "40 "
fortyfive: TYPE "45 "
done: TYPE ""
selectweap: MENU "Select Weapon",1,26,NORMAL
OPTION "Phasers",phas
OPTION "Torpedos",torp
OPTION "Probes",probe
MEND
howmany: MENU "Select",1,30,NORMAL
OPTION "Single",single
OPTION "All",all
OPTION "Done",done
MEND
single: MENU "Select",1,30,NORMAL
OPTION "1",onec
OPTION "2",twoc
OPTION "3",threec
OPTION "4",fourc
OPTION "5",fivec
OPTION "6",sixc
OPTION "7",sevenc
OPTION "8",eightc
MEND
onec: EXECUTE one,howmany
twoc: EXECUTE two,howmany
threec: EXECUTE three,howmany
fourc: EXECUTE four,howmany
fivec: EXECUTE five,howmany
sixc: EXECUTE six,howmany
sevenc: EXECUTE seven,howmany
eightc: EXECUTE eight,howmany
spread: MENU "Select Dispersion",1,5
OPTION "0",zero
OPTION "5",five
OPTION "10",ten
OPTION "15",fifteen
OPTION "20",twenty
OPTION "25",twentyfive
OPTION "30",thirty
OPTION "35",thirtyfive
OPTION "40",forty
OPTION "45",fortyfive
MEND
; navigation code begins here
navcom: MENU "NavCom",1,5,NORMAL
OPTION "Course",course
OPTION "Chart ",chart
OPTION "Pursue",pursue
OPTION "Elude ",elude
MEND
course: TYPE "course ",13
chart: TYPE "chart",13
pursue: TYPE "pursue",13
elude: TYPE "elude",13
;End Begin LogiTech Menu